home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / tex / texsrc.arc / TEX7.C < prev    next >
C/C++ Source or Header  |  1988-09-14  |  54KB  |  2,043 lines
  1. overlay "tex7"
  2. #define EXTERN extern
  3. #include "texd.h"
  4.  
  5. halfword zvsplit ( n , h ) 
  6. eightbits n ; 
  7. scaled h ; 
  8. {/* 10 30 */ register halfword Result; r_vsplit 
  9.   halfword v ; 
  10.   halfword p ; 
  11.   halfword q ; 
  12.   v = eqtb [ 4322 + n ] .hh .v.RH ; 
  13.   if ( curmark [ 3 ] != 0 ) 
  14.   {
  15.     deletetokenr ( curmark [ 3 ] ) ; 
  16.     curmark [ 3 ] = 0 ; 
  17.     deletetokenr ( curmark [ 4 ] ) ; 
  18.     curmark [ 4 ] = 0 ; 
  19.   } 
  20.   if ( v == 0 ) 
  21.   {
  22.     Result = 0 ; 
  23.     return(Result) ; 
  24.   } 
  25.   if ( mem [(long) v ] .hh.b0 != 1 ) 
  26.   {
  27.     {
  28.       if ( interaction == 3 ) 
  29.       wakeuptermin () ; 
  30.       printnl ( 133 ) ; 
  31.       print ( 206 ) ; 
  32.     } 
  33.     printesc ( 813 ) ; 
  34.     print ( 814 ) ; 
  35.     printesc ( 815 ) ; 
  36.     {
  37.       helpptr = 2 ; 
  38.       helpline [ 1 ] = 816 ; 
  39.       helpline [ 0 ] = 817 ; 
  40.     } 
  41.     error () ; 
  42.     Result = 0 ; 
  43.     return(Result) ; 
  44.   } 
  45.   q = vertbreak ( mem [(long) v + 5 ] .hh .v.RH , h , eqtb [ 5707 ] .cint ) ; 
  46.   p = mem [(long) v + 5 ] .hh .v.RH ; 
  47.   if ( p == q ) 
  48.   mem [(long) v + 5 ] .hh .v.RH = 0 ; 
  49.   else while ( true ) { 
  50.     if ( mem [(long) p ] .hh.b0 == 4 ) 
  51.     if ( curmark [ 3 ] == 0 ) 
  52.     {
  53.       curmark [ 3 ] = mem [(long) p + 1 ] .cint ; 
  54.       curmark [ 4 ] = curmark [ 3 ] ; 
  55.       mem [(long) curmark [ 3 ] ] .hh .v.LH = mem [(long) curmark [ 3 ] ] .hh .v.LH + 2 ; 
  56.     } 
  57.     else { 
  58.       deletetokenr ( curmark [ 4 ] ) ; 
  59.       curmark [ 4 ] = mem [(long) p + 1 ] .cint ; 
  60.       incr ( mem [(long) curmark [ 4 ] ] .hh .v.LH ) ; 
  61.     } 
  62.     if ( mem [(long) p ] .hh .v.RH == q ) 
  63.     {
  64.       mem [(long) p ] .hh .v.RH = 0 ; 
  65.       goto lab30 ; 
  66.     } 
  67.     p = mem [(long) p ] .hh .v.RH ; 
  68.   } 
  69.   lab30: ; 
  70.   q = prunepagetop ( q ) ; 
  71.   p = mem [(long) v + 5 ] .hh .v.RH ; 
  72.   freenode ( v , 7 ) ; 
  73.   if ( q == 0 ) 
  74.   eqtb [ 4322 + n ] .hh .v.RH = 0 ; 
  75.   else eqtb [ 4322 + n ] .hh .v.RH = vpackage ( q , 0 , 1 , 1073741823 ) ; 
  76.   Result = vpackage ( p , h , 0 , eqtb [ 5707 ] .cint ) ; 
  77.   return(Result) ; 
  78. } 
  79. printtotals () { r_printtotals 
  80.   printscaled ( pagesofar [ 1 ] ) ; 
  81.   if ( pagesofar [ 2 ] != 0 ) 
  82.   {
  83.     print ( 181 ) ; 
  84.     printscaled ( pagesofar [ 2 ] ) ; 
  85.     print ( 206 ) ; 
  86.   } 
  87.   if ( pagesofar [ 3 ] != 0 ) 
  88.   {
  89.     print ( 181 ) ; 
  90.     printscaled ( pagesofar [ 3 ] ) ; 
  91.     print ( 180 ) ; 
  92.   } 
  93.   if ( pagesofar [ 4 ] != 0 ) 
  94.   {
  95.     print ( 181 ) ; 
  96.     printscaled ( pagesofar [ 4 ] ) ; 
  97.     print ( 826 ) ; 
  98.   } 
  99.   if ( pagesofar [ 5 ] != 0 ) 
  100.   {
  101.     print ( 181 ) ; 
  102.     printscaled ( pagesofar [ 5 ] ) ; 
  103.     print ( 827 ) ; 
  104.   } 
  105.   if ( pagesofar [ 6 ] != 0 ) 
  106.   {
  107.     print ( 182 ) ; 
  108.     printscaled ( pagesofar [ 6 ] ) ; 
  109.   } 
  110. } 
  111. zfreezepagesp ( s ) 
  112. smallnumber s ; 
  113. {r_freezepagesp 
  114.   pagecontents = s ; 
  115.   pagesofar [ 0 ] = eqtb [ 5705 ] .cint ; 
  116.   pagemaxdepth = eqtb [ 5706 ] .cint ; 
  117.   pagesofar [ 7 ] = 0 ; 
  118.   pagesofar [ 1 ] = 0 ; 
  119.   pagesofar [ 2 ] = 0 ; 
  120.   pagesofar [ 3 ] = 0 ; 
  121.   pagesofar [ 4 ] = 0 ; 
  122.   pagesofar [ 5 ] = 0 ; 
  123.   pagesofar [ 6 ] = 0 ; 
  124.   leastpagecos = 1073741823 ; 
  125.  
  126. #ifdef STAT
  127.   if ( eqtb [ 5300 ] .cint > 0 ) 
  128.   {
  129.     begindiagnos () ; 
  130.     printnl ( 835 ) ; 
  131.     printscaled ( pagesofar [ 0 ] ) ; 
  132.     print ( 836 ) ; 
  133.     printscaled ( pagemaxdepth ) ; 
  134.     enddiagnosti ( false ) ; 
  135.   } 
  136. #endif /* STAT */
  137. } 
  138. zboxerror ( n ) 
  139. eightbits n ; 
  140. {r_boxerror 
  141.   error () ; 
  142.   begindiagnos () ; 
  143.   printnl ( 689 ) ; 
  144.   showbox ( eqtb [ 4322 + n ] .hh .v.RH ) ; 
  145.   enddiagnosti ( true ) ; 
  146.   flushnodelis ( eqtb [ 4322 + n ] .hh .v.RH ) ; 
  147.   eqtb [ 4322 + n ] .hh .v.RH = 0 ; 
  148. } 
  149. zensurevbox ( n ) 
  150. eightbits n ; 
  151. {r_ensurevbox 
  152.   halfword p ; 
  153.   p = eqtb [ 4322 + n ] .hh .v.RH ; 
  154.   if ( p != 0 ) 
  155.   if ( mem [(long) p ] .hh.b0 == 0 ) 
  156.   {
  157.     {
  158.       if ( interaction == 3 ) 
  159.       wakeuptermin () ; 
  160.       printnl ( 133 ) ; 
  161.       print ( 837 ) ; 
  162.     } 
  163.     {
  164.       helpptr = 3 ; 
  165.       helpline [ 2 ] = 838 ; 
  166.       helpline [ 1 ] = 839 ; 
  167.       helpline [ 0 ] = 840 ; 
  168.     } 
  169.     boxerror ( n ) ; 
  170.   } 
  171. } 
  172. zfireup ( c ) 
  173. halfword c ; 
  174. {/* 10 */ r_fireup 
  175.   halfword p, q, r, s ; 
  176.   halfword prevp ; 
  177.   quarterword n ; 
  178.   boolean wait ; 
  179.   integer savevbadness ; 
  180.   scaled savevfuzz ; 
  181.   halfword savesplittop ; 
  182.   if ( mem [(long) bestpagebrea ] .hh.b0 == 12 ) 
  183.   {
  184.     geqworddefin ( 5306 , mem [(long) bestpagebrea + 1 ] .cint ) ; 
  185.     mem [(long) bestpagebrea + 1 ] .cint = 10000 ; 
  186.   } 
  187.   else geqworddefin ( 5306 , 10000 ) ; 
  188.   if ( curmark [ 2 ] != 0 ) 
  189.   {
  190.     if ( curmark [ 0 ] != 0 ) 
  191.     deletetokenr ( curmark [ 0 ] ) ; 
  192.     curmark [ 0 ] = curmark [ 2 ] ; 
  193.     incr ( mem [(long) curmark [ 0 ] ] .hh .v.LH ) ; 
  194.     deletetokenr ( curmark [ 1 ] ) ; 
  195.     curmark [ 1 ] = 0 ; 
  196.   } 
  197.   if ( c == bestpagebrea ) 
  198.   bestpagebrea = 0 ; 
  199.   if ( eqtb [ 4577 ] .hh .v.RH != 0 ) 
  200.   {
  201.     {
  202.       if ( interaction == 3 ) 
  203.       wakeuptermin () ; 
  204.       printnl ( 133 ) ; 
  205.       print ( 206 ) ; 
  206.     } 
  207.     printesc ( 274 ) ; 
  208.     print ( 851 ) ; 
  209.     {
  210.       helpptr = 2 ; 
  211.       helpline [ 1 ] = 852 ; 
  212.       helpline [ 0 ] = 840 ; 
  213.     } 
  214.     boxerror ( 255 ) ; 
  215.   } 
  216.   insertpenalt = 0 ; 
  217.   savesplittop = eqtb [ 3536 ] .hh .v.RH ; 
  218.   r = mem [(long) memtop ] .hh .v.RH ; 
  219.   while ( r != memtop ) { 
  220.     if ( mem [(long) r + 2 ] .hh .v.LH != 0 ) 
  221.     {
  222.       n = mem [(long) r ] .hh.b1 ; 
  223.       ensurevbox ( n ) ; 
  224.       if ( eqtb [ 4322 + n ] .hh .v.RH == 0 ) 
  225.       eqtb [ 4322 + n ] .hh .v.RH = newnullbox () ; 
  226.       p = eqtb [ 4322 + n ] .hh .v.RH + 5 ; 
  227.       while ( mem [(long) p ] .hh .v.RH != 0 ) p = mem [(long) p ] .hh .v.RH ; 
  228.       mem [(long) r + 2 ] .hh .v.RH = p ; 
  229.     } 
  230.     r = mem [(long) r ] .hh .v.RH ; 
  231.   } 
  232.   q = memtop - 4 ; 
  233.   mem [(long) q ] .hh .v.RH = 0 ; 
  234.   prevp = memtop - 2 ; 
  235.   p = mem [(long) prevp ] .hh .v.RH ; 
  236.   while ( p != bestpagebrea ) { 
  237.     if ( mem [(long) p ] .hh.b0 == 3 ) 
  238.     {
  239.       r = mem [(long) memtop ] .hh .v.RH ; 
  240.       while ( mem [(long) r ] .hh.b1 != mem [(long) p ] .hh.b1 ) r = mem [(long) r ] .hh .v.RH ; 
  241.       if ( mem [(long) r + 2 ] .hh .v.LH == 0 ) 
  242.       wait = true ; 
  243.       else { 
  244.     wait = false ; 
  245.     s = mem [(long) p + 4 ] .hh .v.LH ; 
  246.     mem [(long) mem [(long) r + 2 ] .hh .v.RH ] .hh .v.RH = s ; 
  247.     s = mem [(long) r + 2 ] .hh .v.RH ; 
  248.     if ( mem [(long) r + 2 ] .hh .v.LH == p ) 
  249.     {
  250.       if ( mem [(long) r ] .hh.b0 == 1 ) 
  251.       if ( ( mem [(long) r + 1 ] .hh .v.LH == p ) && ( mem [(long) r + 1 ] .hh .v.RH 
  252.       != 0 ) ) 
  253.       {
  254.         while ( mem [(long) s ] .hh .v.RH != mem [(long) r + 1 ] .hh .v.RH ) s = mem [(long) 
  255.         s ] .hh .v.RH ; 
  256.         eqtb [ 3536 ] .hh .v.RH = mem [(long) p + 4 ] .hh .v.RH ; 
  257.         mem [(long) p + 4 ] .hh .v.LH = prunepagetop ( mem [(long) r + 1 ] .hh .v.RH ) 
  258.         ; 
  259.         if ( mem [(long) p + 4 ] .hh .v.LH != 0 ) 
  260.         {
  261.           tempptr = vpackage ( mem [(long) p + 4 ] .hh .v.LH , 0 , 1 , 
  262.           1073741823 ) ; 
  263.           mem [(long) p + 3 ] .cint = mem [(long) tempptr + 3 ] .cint + mem [(long) tempptr 
  264.           + 2 ] .cint ; 
  265.           freenode ( tempptr , 7 ) ; 
  266.           wait = true ; 
  267.         } 
  268.         mem [(long) s ] .hh .v.RH = 0 ; 
  269.       } 
  270.       mem [(long) r + 2 ] .hh .v.LH = 0 ; 
  271.       n = mem [(long) r ] .hh.b1 ; 
  272.       tempptr = mem [(long) eqtb [ 4322 + n ] .hh .v.RH + 5 ] .hh .v.RH ; 
  273.       freenode ( eqtb [ 4322 + n ] .hh .v.RH , 7 ) ; 
  274.       eqtb [ 4322 + n ] .hh .v.RH = vpackage ( tempptr , 0 , 1 , 
  275.       1073741823 ) ; 
  276.     } 
  277.     else { 
  278.       while ( mem [(long) s ] .hh .v.RH != 0 ) s = mem [(long) s ] .hh .v.RH ; 
  279.       mem [(long) r + 2 ] .hh .v.RH = s ; 
  280.     } 
  281.       } 
  282.       mem [(long) prevp ] .hh .v.RH = mem [(long) p ] .hh .v.RH ; 
  283.       mem [(long) p ] .hh .v.RH = 0 ; 
  284.       if ( wait ) 
  285.       {
  286.     mem [(long) q ] .hh .v.RH = p ; 
  287.     q = p ; 
  288.     incr ( insertpenalt ) ; 
  289.       } 
  290.       else { 
  291.     deletegluere ( mem [(long) p + 4 ] .hh .v.RH ) ; 
  292.     freenode ( p , 5 ) ; 
  293.       } 
  294.       p = prevp ; 
  295.     } 
  296.     else if ( mem [(long) p ] .hh.b0 == 4 ) 
  297.     {
  298.       if ( curmark [ 1 ] == 0 ) 
  299.       {
  300.     curmark [ 1 ] = mem [(long) p + 1 ] .cint ; 
  301.     incr ( mem [(long) curmark [ 1 ] ] .hh